home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / viewers / bld2gif / vgabld.bas < prev    next >
BASIC Source File  |  1988-05-12  |  948b  |  39 lines
  1. ' $STATIC
  2. ON ERROR GOTO HelpScrn
  3. DIM CPal%(777)
  4. DACseg% = VARSEG(CPal%(1))
  5. DACptr% = VARPTR(CPal%(1))
  6. c$ = COMMAND$
  7. IF c$ = "" THEN GOSUB HelpScrn
  8. SCREEN 13
  9.         DEF SEG = DACseg%
  10.         BLOAD c$ + ".plt", DACptr%
  11.         DEF SEG
  12.         CALL WritePAL(DACseg%, DACptr%)
  13.  
  14.         DEF SEG = &HA000
  15.         BLOAD c$ + ".bld", 0
  16.         DEF SEG
  17.  
  18. a$ = INPUT$(1)
  19. END
  20. HelpScrn:
  21. SCREEN 11
  22. CLS : BEEP
  23. PRINT "┌───────────────────────────────────────────┐"
  24. PRINT "│          VGABLoaD Copr. (c) 1988          │"
  25. PRINT "│      Lawrence Gozum & Marvin Gozum        │"
  26. PRINT "└───────────────────────────────────────────┘"
  27. PRINT "QuickBASIC 4.0 (c) 1982-87 Microsoft (R) Corp."
  28. PRINT
  29. PRINT " Syntax: VGABLOAD [filename] "
  30. PRINT
  31. PRINT " DO NOT INCLUDE EXTENSION !"
  32. PRINT " Screen has extension .BLD for BLoaD."
  33. PRINT " Palette has extension .PLT for PaLeTte."
  34. PRINT
  35. PRINT " Press any key to continue."
  36. a$ = INPUT$(1)
  37. END
  38.  
  39.